home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 April / EnigmA AMIGA RUN 06 (1996)(G.R. Edizioni)(IT)[!][issue 1996-04][Skylink CD V].iso / progs / editor / bed / install / install.script < prev    next >
Text File  |  1996-03-02  |  11KB  |  391 lines
  1. ; $VER: Blacks Editor Installer 1.0 (03.03.96)
  2. ; Blacks Editor Install Script
  3. ; By Marco Negri
  4. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  5.  
  6. (set sourcedir "/")
  7.  
  8. (set dirname "BED")
  9. (set execname "BED")
  10. (set reqtoolsdir "ReqTools")
  11. (set supportdir "Support")
  12. (set rexxdir "Rexx")
  13. (set icondir "Icons")
  14. (set catalogdir "Catalogs")
  15. (set localkitdir "LocalizationKit")
  16.  
  17. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  18.  
  19. (if (= @language "english")
  20.     (
  21.         (set old_os_exit "BED required minimum OS version: 37\nYour current version: %ld.%ld\n\nBlacks Editor cannot be installed")
  22.         (set target_prompt "Select location to put Blacks Editor %ld.%ld:\nA directory named %s will be created")
  23.         (set exist_dir_prompt "The directory selected is\n%s\nDo you wish to install Blacks Editor there ?")
  24.         (set same_version_prompt "The same version of Blacks Editor is present\nVersion: %ld.%ld\nDo you want to re-install it ?")
  25.         (set same_version_exit "Same version already present !")
  26.         (set new_version_prompt "A newer version of Blacks Editor is present\nOld version: %ld.%ld\nNew Version: %ld.%ld\nInstallation aborted !")
  27.         (set new_version_exit "Newer version already present !")
  28.         (set old_version_prompt "An older version of Blacks Editor is present\nOld version: %ld.%ld\nNew Version: %ld.%ld\nDo you want to replace it ?")
  29.         (set old_version_exit "Older version not replaced !")
  30.         (set os37_reqtools_msg "Blacks Editor requires \"reqtools.library\" v38+ to run on your system\n\n(ReqTools is Copyright (c) Nico François and Magnus Holmgren)")
  31.         (set os38_reqtools_msg "Blacks Editor can use ReqTools requesters if \"reqtools.library\" is installed\n\n(ReqTools is Copyright (c) Nico François and Magnus Holmgren)")
  32.         (set defs_prompt "Select the definitions files to install:\n(Really important: Startup.dfn and Standard.dfn)")
  33.         (set prefs_prompt "Select the preferences files to install:")
  34.         (set rexx_msg "Some useful ARexx macros will be copied in\n%s")
  35.         (set icon_msg "Some Icon templates will be copied in\n%s")
  36.         (set catalogs_prompt "Select the catalogs you want to install:\n(English: built-in)")
  37.         (set localkit_prompt "Do you want  to install the Localization Kit ?\n(Used to create your own localization catalogs)")
  38.         (set startup_msg "The following lines will be added to your S:User-Startup\n")
  39.         (set replace_button "Replace")
  40.         (set abort_button "Abort")
  41.         (set install_there_button "Install BED there")
  42.         (set new_dir_button "Create a directory named %s")
  43.     )
  44. )
  45.  
  46. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  47. ; Italian translation by Marco Negri
  48. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  49.  
  50.  
  51. (if (= @language "italiano")
  52.     (
  53.         (set old_os_exit "Versione OS minima richiesta da BED: 37\nVersione corrente: %ld.%ld\n\nBlacks Editor non può essere installato")
  54.         (set target_prompt "Scegli il posto dove installare Blacks Editor %ld.%ld:\nSarà creata una directory chiamata %s")
  55.         (set exist_dir_prompt "La directory selezionata è\n%s\nVuoi installare Blacks Editor quì ?")
  56.         (set same_version_prompt "E' presente la stessa versione di Blacks Editor\nVersione: %ld.%ld\nVuoi re-installare tutto ?")
  57.         (set same_version_exit "E' già presente la stessa versione di Blacks Editor!")
  58.         (set new_version_prompt "E' presente una versione più aggiornata di Blacks Editor\nVecchia versione: %ld.%ld\nNuova versione: %ld.%ld\nInstallazione cancellata !")
  59.         (set new_version_exit "E' già presente una versione più aggiornata di Blacks Editor!")
  60.         (set old_version_prompt "E' presente una vecchia versione di Blacks Editor\nVecchia versione: %ld.%ld\nNuova versione %ld.%ld\nVuoi sostituirla ?")
  61.         (set old_version_exit "La vecchia versione di Blacks Editor non è stata sostituita")
  62.         (set os37_reqtools_msg "Blacks Editor richiede la \"reqtools.library\" v38+ per funzionare su questo sistema\n\n(ReqTools è Copyright (c) Nico François e Magnus Holmgren)")
  63.         (set os38_reqtools_msg "Blacks Editor può usare i requesters ReqTools se la \"reqtools.library\" è installata\n\n(ReqTools è Copyright (c) Nico François e Magnus Holmgren)")
  64.         (set defs_prompt "Seleziona i files di definizione da installare:\n(Importanti: Startup.dfn e Standard.dfn)")
  65.         (set prefs_prompt "Seleziona i files di preferenze da installare:")
  66.         (set rexx_msg "Verranno copiate alcune utili macro ARexx in\n%s")
  67.         (set icon_msg "Verranno copiati alcuni templates di icone in\n%s")
  68.         (set catalogs_prompt "Seleziona i cataloghi da installare:\n(English: incorporato)")
  69.         (set localkit_prompt "Vuoi installare il Localization Kit ?\n(Utile per creare i tuoi cataloghi)")
  70.         (set startup_msg "Le seguenti linee verranno aggiunte alla tua S:User-Startup\n")
  71.         (set replace_button "Sostituisci")
  72.         (set abort_button "Abbandona")
  73.         (set install_there_button "Installa BED quì")
  74.         (set new_dir_button "Crea una directory chiamata %s")
  75.     )
  76. )
  77.  
  78. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  79.  
  80. (complete 0)
  81.  
  82. (set new_vernum (getversion (tackon sourcedir "BED")))
  83. (set new_ver (shiftright new_vernum 16))
  84. (set new_rev (BITAND new_vernum 65535))
  85.  
  86. (set sys_vernum (getversion))
  87. (set sys_ver (shiftright sys_vernum 16))
  88. (set sys_rev (BITAND sys_vernum 65535))
  89.  
  90.  
  91. ; - - - - Check system version and revision - - - -
  92.  
  93.  
  94. (set @default-dest "")
  95.  
  96. (if (< sys_ver 37)
  97.     (exit (old_os_exit sys_ver sys_rev))
  98. )
  99.  
  100.  
  101. ; - - - - Ask for the target directory  - - - -
  102.  
  103.  
  104. (set target
  105.     (askdir
  106.         (prompt (target_prompt new_ver new_rev dirname))
  107.         (default @default-dest)
  108.         (disk)
  109.         (help @askdir-help)
  110.     )
  111. )
  112.  
  113.  
  114. ; - - - - Check if the directory is already called BED - - - -
  115.  
  116.  
  117. (if (= dirname (fileonly target))
  118.     (if (= 1    (askchoice
  119.                     (prompt (exist_dir_prompt target))
  120.                     (choices install_there_button (new_dir_button dirname))
  121.                     (default 0)
  122.                     (help @askchoice-help)
  123.                     )
  124.             )
  125.  
  126.             (set target (tackon target dirname))
  127.     )
  128.  
  129.     (set target (tackon target dirname))
  130. )
  131.  
  132. (set @default-dest target)
  133.  
  134.  
  135. ; - - - - Check if there is another version present - - - -
  136.  
  137.  
  138. (set exec (tackon target execname))
  139.  
  140. (if (exists exec)
  141.     (
  142.         (set old_vernum (getversion exec))
  143.         (set old_ver (/ old_vernum 65536))
  144.         (set old_rev (- old_vernum (* old_ver 65536)))
  145.  
  146.         (if (= old_vernum new_vernum)
  147.             (
  148.                 (if (= 0 (askbool
  149.                                     (prompt (same_version_prompt old_ver old_rev))
  150.                                     (choices replace_button abort_button)
  151.                                     (default 0)
  152.                                     (help @askbool-help)
  153.                                     )
  154.                                 )
  155.                         (exit same_version_exit)
  156.                 )
  157.             )
  158.             (if (< old_vernum new_vernum)
  159.                 (if (= 0 (askbool
  160.                                     (prompt (old_version_prompt old_ver old_rev new_ver new_rev))
  161.                                     (choices replace_button abort_button)
  162.                                     (default 1)
  163.                                     (help @askbool-help)
  164.                             )
  165.                     )
  166.                     (exit old_version_exit)
  167.                 )
  168.                 (
  169.                     (message (new_version_prompt old_ver old_rev new_ver new_rev))
  170.                     (exit new_version_exit)
  171.                 )
  172.             )
  173.         )
  174.     )
  175. )
  176.  
  177.  
  178. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  179. ; *** BED and BED.guide ***
  180. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  181.  
  182. (copyfiles
  183.     (prompt "")
  184.     (source (tackon sourcedir ("/%s.info" dirname)))
  185.     (dest (pathonly target))
  186.     (help @copyfiles-help)
  187. )
  188.  
  189. (copyfiles
  190.     (prompt "")
  191.     (source sourcedir)
  192.     (choices execname ("%s.guide" execname) "Author.iff")
  193.     (dest target)
  194.     (infos)
  195.     (help @copyfiles-help)
  196. )
  197.  
  198. (complete 20)
  199.  
  200.  
  201. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  202. ; *** ReqTools.library ***
  203. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  204.  
  205. (if (> sys_ver 38)
  206.     (set reqtools_msg os37_reqtools_msg)
  207.     (set reqtools_msg os38_reqtools_msg)
  208. )
  209.  
  210. (copylib
  211.     (prompt reqtools_msg)
  212.     (help @copylib-help)
  213.     (source (tackon (tackon sourcedir reqtoolsdir) "reqtools.library"))
  214.     (dest "LIBS:")
  215.     (confirm)
  216. )
  217.  
  218. (complete 30)
  219.  
  220.  
  221. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  222. ; *** Support ***
  223. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  224.  
  225. (copyfiles
  226.     (prompt "")
  227.     (source (tackon sourcedir ("%s.info" supportdir)))
  228.     (dest target)
  229.     (help @copyfiles-help)
  230. )
  231.  
  232. (copyfiles
  233.     (prompt defs_prompt)
  234.     (source (tackon sourcedir supportdir))
  235.     (pattern "#?.dfn")
  236.     (dest (tackon target supportdir))
  237.     (infos)
  238.     (confirm)
  239.     (help @copyfiles-help)
  240. )
  241.  
  242. (complete 40)
  243.  
  244. (copyfiles
  245.     (prompt prefs_prompt)
  246.     (source (tackon sourcedir supportdir))
  247.     (pattern "#?.prf")
  248.     (dest (tackon target supportdir))
  249.     (infos)
  250.     (confirm)
  251.     (help @copyfiles-help)
  252. )
  253.  
  254. (complete 50)
  255.  
  256.  
  257. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  258. ; *** Rexx ***
  259. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  260.  
  261. (message (rexx_msg (tackon target rexxdir)))
  262.  
  263. (copyfiles
  264.     (prompt "")
  265.     (source (tackon sourcedir ("%s.info" rexxdir)))
  266.     (dest target)
  267.     (help @copyfiles-help)
  268. )
  269.  
  270. (copyfiles
  271.     (prompt "")
  272.     (source (tackon sourcedir rexxdir))
  273.     (all)
  274.     (dest (tackon target rexxdir))
  275.     (infos)
  276.     (help @copyfiles-help)
  277. )
  278.  
  279. (complete 60)
  280.  
  281.  
  282. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  283. ; *** Icons ***
  284. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  285.  
  286. (message (icon_msg (tackon target "Icons")))
  287.  
  288. (copyfiles
  289.     (prompt "")
  290.     (source (tackon sourcedir ("%s.info" icondir)))
  291.     (dest target)
  292.     (help @copyfiles-help)
  293. )
  294.  
  295. (copyfiles
  296.     (prompt "")
  297.     (source (tackon sourcedir icondir))
  298.     (all)
  299.     (dest (tackon target icondir))
  300.     (infos)
  301.     (help @copyfiles-help)
  302. )
  303.  
  304. (complete 70)
  305.  
  306.  
  307. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  308. ; *** Catalogs ***
  309. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  310.  
  311. (set catalogs
  312.     (askoptions
  313.         (prompt catalogs_prompt)
  314.         (choices "Italiano")
  315.         (help @askoptions-help)
  316.     )
  317. )
  318.  
  319. (set catdir (tackon target catalogdir))
  320.  
  321. (if (NOT (= 0 catalogs))
  322. (
  323.     (copyfiles
  324.         (prompt "")
  325.         (source (tackon sourcedir ("%s.info" catalogdir)))
  326.         (dest target)
  327.         (help @copyfiles-help)
  328.     )
  329.  
  330.     (makedir catdir)
  331.  
  332.     (if (IN catalogs 0)
  333.         (copyfiles
  334.             (prompt "")
  335.             (source (tackon sourcedir ("%s/Italiano" catalogdir)))
  336.             (all)
  337.             (dest (tackon catdir "Italiano"))
  338.             (help @help-copyfiles)
  339.         )
  340.     )
  341. )
  342. )
  343.  
  344. (complete 80)
  345.  
  346.  
  347. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  348. ; *** Localization Kit ***
  349. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  350.  
  351. (if (= 1 (askbool
  352.     (prompt localkit_prompt)
  353.     (default 1)
  354.     (help "")))
  355.  
  356.     (
  357.         (copyfiles
  358.             (prompt "")
  359.             (source (tackon sourcedir ("%s.info" localkitdir)))
  360.             (dest target)
  361.             (help @copyfiles-help)
  362.         )
  363.  
  364.         (copyfiles
  365.             (prompt "")
  366.             (source (tackon sourcedir localkitdir))
  367.             (all)
  368.             (dest (tackon target localkitdir))
  369.             (infos)
  370.             (help @copyfiles-help)
  371.         )
  372.     )
  373. )
  374.  
  375. (complete 90)
  376.  
  377.  
  378. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  379. ; *** User-Startup ***
  380. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  381.  
  382. (set assign_lines ("Assign BED: \"%s\"\nAssign REXX: \"%s\" ADD\nPath BED: ADD\n" target (tackon target rexxdir)))
  383.  
  384. (startup "Blacks Editor"
  385.     (prompt (cat startup_msg assign_lines))
  386.     (command assign_lines)
  387.     (help @startup-help)
  388. )
  389.  
  390. (complete 100)
  391.